home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / pssst.arc / PSJOBTRK.PRG < prev    next >
Encoding:
Text File  |  1986-07-14  |  2.5 KB  |  100 lines
  1. * PSJOBTRK.PRG
  2. *
  3. * A DBASE II 16BIT COMMAND FILE to allow selection of the major
  4. * portions of the jobtrack portion of pssst.
  5. *
  6. * Version 1
  7. * By LTC Denny Hugg
  8. * ANGSC/DOS Andrews AFB MD 16 Jul 1985
  9. *
  10. * Version 2  
  11. * modified by Maj Jim McMurry
  12. * ANGSC/DOSC Truax Field, WI 15 Jun 1986
  13. *
  14. *
  15. DO WHILE T
  16. ERASE
  17. STORE "p S S S t   J O B T R A C K     S Y S T E M" TO heading
  18. DO PSHEADING
  19. STORE chr(95)+chr(95) TO ln
  20. STORE ln+ln+ln+ln+ln TO ln
  21. STORE ln+ln+ln+ln+ln+ln+ln+ln TO ln
  22. STORE 'INPUT' TO p1
  23. STORE 'EDIT' TO p2
  24. STORE 'COMPLETE' TO p3
  25. STORE 'DELETE' TO p4
  26. STORE 'PRINT' TO p5
  27. STORE 'EXIT' TO p6
  28. STORE ' '+p1+'  '+p2+'  '+p3+'  '+p4+'  '+p5+'  '+p6+'   ' TO lin
  29. STORE '              (New Suspense Items)' TO y1
  30. STORE '                (Jobs In Progress)' TO y2
  31. STORE '   (And Move Out Of Suspense File)' TO y3
  32. STORE '           (Jobs No Longer Viable)' TO y4
  33. STORE '        (Susp, Compl, or Del Jobs)' TO y5
  34. STORE '           (From Job Track System)' TO y6
  35. STORE '000713233138' TO col
  36. STORE 1 TO c
  37. STORE '1' TO z
  38. STORE '0' TO mcho
  39.    STORE t TO screen
  40.    @ 22,0 SAY gline
  41.    DO WHILE screen
  42.       @ 22,79 SAY lin + y&z
  43.       @ 23,VAL($(col,c,2)) GET p&z
  44.       CLEAR GETS
  45.       SET CONSOLE OFF
  46.       STORE '0' TO mcho
  47.       DO WHILE ' '<>mcho .AND. .NOT. mcho$'DCKM46'
  48.          WAIT TO mcho
  49.       ENDDO
  50.       SET CONSOLE ON
  51.       DO CASE
  52.          CASE mcho$('CM6')
  53.             IF c#11
  54.                STORE c+2 TO c
  55.                STORE str(val(z)+1,1) TO z
  56.             ELSE
  57.                STORE 1 TO c
  58.                STORE '1' TO z
  59.             ENDIF
  60.          CASE mcho$('KD4')
  61.             IF c>1
  62.                STORE c-2 TO c
  63.                STORE str(val(z)-1,1) TO z
  64.             ELSE
  65.                STORE 11 TO c
  66.                STORE '6' TO z
  67.             ENDIF
  68.          CASE mcho = ' '
  69.             STORE f TO screen
  70.             LOOP
  71.       ENDCASE
  72.    ENDDO
  73.    DO CASE
  74.       CASE c=1
  75.          RELEASE ALL EXCEPT g*
  76.          DO PSINPUTS
  77.       CASE c=3
  78.          STORE 3 TO gc
  79.          RELEASE ALL EXCEPT g*
  80.          DO PSEDITS
  81.       CASE c=5
  82.          STORE 5 TO gc
  83.          RELEASE ALL EXCEPT g*
  84.          DO PSEDITS
  85.       CASE c=7
  86.          STORE 7 TO gc
  87.          RELEASE ALL EXCEPT g*
  88.          DO PSEDITS
  89.       CASE c=9
  90.          RELEASE ALL EXCEPT g*
  91.          DO PSPRINTS
  92.       CASE c=11
  93.          RELEASE gc
  94.          RELEASE ALL EXCEPT g*
  95.          RETURN
  96.       ENDCASE
  97.    STORE f TO screen
  98. ENDDO T
  99. * EOF --- PSJOBTRK.PRG
  100.